2 POKE53281,0:POKE53280,0
4 PRINT"[147][129]           [204][207][193][196][211][212][193][210] [205][193][210][203][197][212][208][204][193][195][197]
6 [153]"    1  CONT(null)RINT (null)ARKETPLACE (null)RDER ASCORM
8 PRINT"    2  [154][210]ETURN TO [204][207][193][196][211][212][193][210]
10 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]10
12 [139]A$[178]"1"[167]24
14 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
16 [139]ER[179][177]63[167] [128]
18 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8
20 PRINT"RUN"
22 POKE631,13:POKE632,13:POKE198,2:END
24 OPEN4,4,7:CLOSE4
26 IFST<>-128THEN34
28 POKE646,2+D:POKE214,10:PRINT:PRINT"   [212]URN YOUR PRINTER ON - PRESS A KEY[145]"
30 GETA$:D=5-D:IFA$=""THEN28
32 GOTO24
34 POKE214,10:PRINT:PRINT"[158]   [211]ET TOP OF FORM AND PRESS ANY KEY."
36 GETA$:IFA$=""THEN36
40 OPEN4,4,7:CMD4
42 SP$="                                                                    "
44 D$="------------------------------------------------------------------"
46 E$="        ========================================================"
48 GOTO110
50 PRINTLEFT$(SP$,40-(LEN(M$)/2))M$
52 RETURN
110 M$="[204][207][193][196][211][212][193][210] [205][193][210][203][197][212][208][204][193][195][197] [207][210][196][197][210] [198][207][210][205]":GOSUB50:PRINT
120 M$="1 - 8 0 0 - 8 3 1 - 2 6 9 4":GOSUB50:PRINT
130 M$="[207][198][198][197][210] #: [205][208][204][211]96      [207][198][198][197][210] [197][216][208][201][210][197][211]: 6/15/92":GOSUB50
140 PRINTE$
150 PRINT"        [201][212][197][205] [195][207][196][197]              [209][213][193][206][212][201][212][217]      [208][210][201][195][197]        [193][205][207][213][206][212]
160 [153]"        STR$VAL(null)LEN(null)RIGHT$(null)(null)RIGHT$(null)(null)                          VALATNLENLEFT$          STR$(null)VAL
170 PRINTE$
180 M$="[212][207][208] [211][197][204][204][201][206][199] [194][193][195][203] [201][211][211][213][197][211]":GOSUB50
185 PRINT
200 PRINT"        [193][204][204] 10 [201][211][211][213][197][211] (ONE ITEM)            [216] $49.95 = $"
205 PRINTLEFT$(SP$,33)"-------                --------"
210 PRINT"        [201][206][196][201][214][201][196][213][193][204] [194][193][195][203] [201][211][211][213][197][211]              [216] $6.95  = $"
215 PRINTLEFT$(SP$,33)"-------                --------"
220 PRINT"        [195]IRCLE THE ISSUE(S) YOU WISH TO PURCHASE.
230 [153]
240 [153]"             85  40  34  32  29  24  25  13  11  6"
255 [153]
260 [153][200](SP$,46)"(null)(null)PEEK(null)(null)(null)ATN(null) $"
270 [153][200](SP$,56)"--------"
280 [153]"                (null)OUISIANA RESIDENTS ADD 4% SALES TAX.  $
285 PRINTLEFT$(SP$,56)"--------"
290 PRINT"        [211]HIPPING & [200]ANDLING: $3.50 FOR UP TO 3 ISSUES;
300 [153]"        $.50 FOR EACH ADDITIONAL ISSUE                 $
320 PRINTLEFT$(SP$,56)"--------"
325 PRINT
330 PRINTLEFT$(SP$,49)"[212][207][212][193][204] $"
335 PRINTLEFT$(SP$,56)"--------"
340 PRINT"  [206][193][205][197]:"
345 PRINT"       "LEFT$(D$,64)
350 PRINT"  [205][193][201][204][201][206][199] [193][196][196][210][197][211][211]:"
360 PRINT"                  "LEFT$(D$,53)
370 PRINT"  [211][212][210][197][197][212] [193][196][196][210][197][211][211]:"
380 PRINT"                 "LEFT$(D$,54)
390 PRINT"  [195][201][212][217]:                                    ";
400 PRINT"[211][212][193][212][197]:        [218][201][208]:"
405 PRINT"       "LEFT$(D$,36);
407 PRINT"      --------    ----------"
410 PRINT"  [208][200][207][206][197]: (     )"
415 PRINT"        "LEFT$(D$,20)
417 PRINT
420 M$="[205][197][212][200][207][196] [207][198] [208][193][217][205][197][206][212]:":GOSUB50
425 PRINT
430 PRINT"         [195][200][197][195][203] [207][210] [205][207][206][197][217] [207][210][196][197][210]"
440 PRINT"  ------ ([205]AKE PAYMENT TO [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199] [201][206] [213].[211]. [198][213][206][196][211] [207][206][204][217].)"
450 PRINT
460 PRINT"          [196][201][211][195][207][214][197][210]        [205][195]        [214][201][211][193]        [193][205][197][216]
465 [153]"  --------        --------  --------    --------"
470 [153]"  ATNLENLEN(null)(null)(null)(null) #:"
475 [153]"            "[200](D$,60)
480 [153]"  VAL(null)(null)RIGHT$(null)ATN(null)RIGHT$(null)(null) STR$ATN(null)VAL:"
485 [153]"                  "[200](D$,54)
490 [153]"  (null)RIGHT$CHR$(null)ATN(null)(null)(null)VAL:"
495 [153]"            "[200](D$,60)
497 [153]
500 [153]"  (null)ATNRIGHT$(null) (null)(null):";
510 [153][200](SP$,13)"(null)OFTDISK (null)UBLISHING, (null).(null). PEEKOX 30008,
520 M$="[211]HREVEPORT, [204][193]  71130-0008":GOSUB50
525 PRINT
530 M$="1 - 8 0 0 - 8 3 1 - 2 6 9 4":GOSUB50
535 PRINT
540 M$="[208][200][207][206][197] 1-318-221-8718  [198][193][216] 1-318-221-8870":GOSUB50
600 PRINT#4:CLOSE4
610 RUN
10000 OPEN15,8,15,"S0:MARKETPLACE 96":CLOSE15:SAVE"MARKETPLACE 96",8:END